home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
tbbs
/
prgsourc.zip
/
HOMES.ZIP
/
LTAG.PRG
< prev
next >
Wrap
Text File
|
1995-12-26
|
451b
|
23 lines
PROCEDURE ltag
fnd = aScan(tarray,pic1)
IF fnd = 0
fnd = aScan(tarray,"EMPTY",51,1)
IF fnd = 51
SET COLOR TO W+/N
@ 19,5 SAY "Maximum number of tagged listings is 50."
key=InKey(4)
@ 19,5 CLEAR TO 19,50
RETURN
ENDIF
dummy=aIns(tarray,1)
tarray[1]=pic1
SET COLOR TO RB+/N
@ crow,1 SAY "*"
ELSE
dummy=aDel(tarray,fnd)
SET COLOR TO N/N
@ crow,1 SAY " "
ENDIF
RETURN